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ccccccce 000000 BBBBBBBB HH HH AAAAAA NN NN DDDDDDDD LL EEEEEEEEEE 
cccccccc 000000 BB HH HH AAABAA NN NN DDDDDDDD LL EEEEEEEEEE 

cc 00 00 88 BB HH HH AA AA NN N 0D DD LL EE 

cc 00 00 688 BB HH HH AA AA NN NN DD DD LL EE 

cc 00 00 68 BB HH HH AA AA NNNN NN DD DD LL EE 

cc 00 00 88 BB HH HH AA AA NNNN NN OD DD LL EE 

cc 00 00 868888888 HHHHHHHHHH = AA AA NN NN NN DD DD LL EEEEEEEE 

cc 00 00 HHHHHHHHHH = AA AA NN WN NN DD DD LL EEEEEEEE 

cc 00 00 688 BB HH HH AAAAAAAAAA NN NNNN ODD DD LL EE 

cc 00 00 6B BB HH HH AAAAAAAAAA NN NNNN DD DD LL EE 

cc 00 00 8B BB HH HH AA AA NN NN DD DD LL EE cece 

cc 00 00 8B BB HH HH AA AA NN NN DD DD LL EE eeee 
cccccccc 000000 BBBBBBBB HH HH AA AA NN NN DDDDDDDD LLLLLLLLLL EEEEEEEEEE eeee 
cccccccc 000000 BBBBBBBB HH HH AA AA NN NN DDDDDDDD LLLLLLLLLL EEEEEEEEEE eeee 

LL 111] SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 
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-Sep-1 COBRTL.SRCJCOBHANDLE .852;1 
1 0001 MODULE COBSSHANDLER ( 
§ Be ¢ pan = '1-022' ! FILE: COBHANDLE.832 EDIT:PDG1022 
4 9004 1 BEGIN 
5 0005 1! 
$ B38 Ll wee eee eee eR EEAAAAT EET EEA EAT EAEA EAHA Tee 
1 3@ 
8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
19 eet : :* ALL RIGHTS RESERVED. * 
i * 
1 0012 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS RE OR ANY OTHER * 
15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 B018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Hf SEA : be TRANSFERRED. x 
it we 
19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$3 eS 1 : be CORPORATION. * 
‘@ ® 
$8 $098 1 '= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
25 0025 1 !« * 
26 0026 1 !* * 
$s +i 7 1 SRR e RRA AEAAAAAAAEAEAARAAAAAEERAREA AREER EAA EEAARAAAARAAAAAEEEERAEAAAAAE AEE 
0 zz 
$5 0099 1 i 
30 0030 1 !+¢ 
3 i ! FACILITY: COBOL SUPPORT 
33 0035 1 ! ABSTRACT: This procedure is the error handler for COBOL error 
34 0034 1! conditions. It gets invoked as a result of a call 
5 0035 1! to LIBSSIGNAL. 
0036 1! 
7 0037 1! 
36 0038 1 ! ENVIRONMENT: Vax-11 User Mode 
39 0039 1! 
40 0040 1 ! AUTHOR: MLJ , CREATION DATE: 03-MAY-1979 
41 0041 1! 
4 OOe§ 1 ! MODIFIED By: 
& 0 1! 
44 Bee 1! 1-001 - Original. MLJ 03-MAY-1979 
45 045 1! I- 4 - Added boilerplate and comments. RKR 18-JULY-1979 
46 D066 1 ! 1-003 = Declare psects via Library macro. RKR 25-AUG-1979 
47 0047 1 ! 1-004 = Change symbolic name of LIBRARY file. RKR 1-0CT-79 
48 0048 1 ! 1-005 = Change name of entry point to COBSSHANDLER. RKR 18-OCT-79 
49 0049 1! 1-006 - ponerse definition of COBS_USE_EXIT. Cosmetic changes. 
20 0050 1! RKR 20-0CT-7 
1 0051 1 ! 1-007 - But forgot o declare it as EXTERNAL LITERAL. 
6 O36 1! RKR ¢ -0CT- : 
5 053 1 ! 1-008 - Check for COGS _USE_EXIT by using LIBSMATCH_COND. 
54 54 1! RKR 22-0CT- 
55 055 1 ! 1-009 - Make arguments to LIBMATCHCOND be by REF. RKR 31-OCT-79 
56 2026 1 ! 1-010 = Add code to resignal a COBOL~specific error message if 
57 0057 1! signal is SS$_ROPRAND and associated opcode was 


POE as: ifs ep 198¢ $3:40:46 — edar TL SReSCOBMANOLE-692;1 


8 028 1! CVTTP or CVTSP. RKR 21-NOV-79 

9 0 1! 1-01) - Correct resignaling code. RKR 27-NOV-79 

60 60 1 ! 1-012 = Added abstract, functional description, comments and made 

61 Jes cosmetic changes. Added code that breaks up the CASE code 

6 0 § 1 ! for a USE procedure condition yetug pate she sagereor vate types - 
6 o> yf file ape itis and mode specific. ition: ion of cod 

64 also involved introducing two new condi t on S geese and 

65 065 1! symbolic names for r.tnate y values. LB 3-MAR- 

6 +6 1 ! 1-013 = Added comments. 1 

6 67 1 ! 1-014 = Added code for hand tthe" ~~ base USE procedure condition 

68 Boe > code (as a result e new routine COBSDBEXCEPTION). Also 

9 $ 1! changed the range +e he CASE statement from 0-3 to 0-5 to 

0 > 24 account for Se Senet — ons. And added yet more 

71 0071 1! comments. 

7 th 1 ! 1-015 = Added code S viaak for the DB code (check that COB$8 suse. "ign 

7 075 1! equals COBSK_DBUSE “ CODE) g fd searching for the DB e 

74 O74 1! This code used to reside in routine COB$ BEXCEPTION. "15 6-maR-81 
75 075 1 ! 1-016 = Replaced arot trary signalled values for USE procedure ches ten 

7 Borg ee code with apgronr ate symbol names which are now defined in 

7 0077 1! COBMSGDEF. Added corresponding entries in the EXTERNAL LITERAL 
78 9078 1! declarations for this module. LB 24-MAR-81 

79 0079 1 ! 1-017 = Changed names of the external Literals to correspond to changes 
80 0080 1! made in COBMSG.MDL. Deleted call to CIBSMA TCH_COND and changed 
81 0081 1! the CASE stmt to a SELECTONE stmt. Changed labels in the 

ag R086 1! SELECTONE stmt (used to be a CASE) to be mnemonics instead of 

8 it 1! numbers. Added comments. LB 16- 

tf 84 1 ! 1-018 = Deleted the external Literals COBSs_ LSTHNDLOP and LSTHNDLFL and 

5 0085 1! added LSTHNDUSE. This was done as a result of a change made 

86 0086 1! in COBOL regarding the scoping rytes for USE procedures. Also 
87 0087 1! changed the macro name for the s ignatting arguments in the signal 
88 0088 1! rray to reflect changes made to COBDEF thee reference had been 
89 0089 1! COBSA_CHK_PROC] which has born chan nged and extended to the fields 
90 0090 1! COBSA aon PROC) and CCOBSA_F a Pt pene LB 21-APR-81 

91 0091 1! 1-019 - Entry point changed to COBSSHANDLER. For some reason, it had 

3 0092 1! remained a single $ entry “point Resolves duplicate symbol 

7) 0095 1! roblem with C ASH ANDL. AUG-81 

4 Bove ' 1-020 - Added external routine Mh Mas vin for COBSHANDLER. LB 4-AUG-81 
96 pe 1 ! 1-021 = Added handling of SORT/MERGE signalled errors. Currentl 

97 ae F using Literal SORT_FAC_CODE until the Literal SORTS_FACILITY 

98 0098 1! is put into STARLET. ER 16-MAR-84 

99 0099 1 ! 1-022 - Move handling of SORT/MERGE errors to end of SELECTONE, and 
100 100 1! resignal the errors prefixed with the COBS_ERRDURSOR message. 
101 13) 1! Remove unreferenced variables. Change indentation, and reword the 
198 1 § 1! checks that validate the addresses of the USE lists. Add comments. 
10 818 .s PDG 9-Apr-84 
104 106 1 !e< 
105 HE } 
106 106 1 !<BLF/PAGE> 
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COBRTL.SRC JCOBHANDLE .B52; 1 


POR S SSNS ALUN AS SBN RUN =O SON 


8 107 1 !¢ 
1 3 1 ! SWITCHES 
: W604 
¢ Mi) } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
4 118 1 !¢ 
5 0114 1 ! LINKAGES 
6 0115 1! NONE 
7 p118 1 !- 
8 11 1 
o 118 1 !4 
0 11 1 ! TABLE OF CONTENTS: 
1 0120 1 !- 
¢ 0121 1 
01 ¢ 1 FORWARD ROUTINE 
4 01 1 
5 0124 1 ! changed name to cob$$handler 
6 0125 1 COBSSHANDLER; 
7 0126 1 
8 0127 1 !4 
0128 1 ! INCLUDE FILES 
o180 1 
0131 1 REQUIRE ‘RTLIN:RTLPSECT’; ! Macros for declaring psects 
8358 1 LIBRARY ‘RTLSTARLE'; ! RTL routines 
acer ; REQUIRE "RTLIN: COBDEF'; ' COBOL specific RTL macros and Literals 
0670 1 !+4 
0671 1 ! MACROS 
gore 1! NONE 
0673 1 !- 
74 «41 
¢ ie & 
2O76 1 ! EQUATED SYMBOLS 
0677 1 !- 
0678 1 
0679 1 LITERAL 
0680 1 CVTTP_OPCODE = %X'26', ! Opcode value for CVITP instruction 
geet : CVTSP_OPCODE = %x'09'; ! Opcode value for CVTSP instruction 
68S | te 
i : PSECT DECLARATIONS: 
1 
fs ! DECLARE_PSECTS (COB); ! Psects for COBS facility 
0689 1 fe 
Ms : EXTERNAL REFERENCES 
3 1 
93 1 EXTERNAL ROUTINE 
94 1 LIBSSTOP 
95 1 LIBSSIGNAL 
96 1 COBSSINVOKE_USE: NOVALUE, ! Invoke the USE procedure 
3692 : COBSHANDLER; 


1 | 
HANDLER tb-se -1984 00:08:55 AX-11 Bliss-32 V4.0-74 Page 4 
$9883 1 30071384 99:9 746 COBRTL. RCICOBHANDLE.B 2;1 - (2). 
; 165 0699 1 EXTERNAL LITERAL 
is 3 9 01 COB$_ERRDURSOR, | 
; 16 701 «#1 COB$_NO_USEPRO, ! No USE procedure available - error on file !AS 
> 168 07 ¢ 1 COBS"LSTHNDUSE, ' Lost handler for a USE procedure - environment corrupted !2(+) 
'3)«(169 0705 1 COBS_LSTHNDLDB, ! Lost handler for data base exception - environment corrupted !+ 
i: 170 0704 1 COBS_USE _EXIT ! Special signal from COBSSINVOKE_USE 
$171 0705 1 COBS~INVBECDAT; i Invalid decimal data signal | 
; 7¢ 0706 1 LITERAL 
c=. OF 0707 1 SORTS_FACILITY = 28; ! Delete when SORTS_FACILITY is in STARLET 1-021 ER 


" COBSSHANDLER 18- 
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19Be 2:10:40 — ECOBRTL SRE SCOBMANDLE -692; 1 
! changed name to eg 


} dler 
GLOBAL ROUTINE COBSSHANDLER(SIGNAL ,MECHANISM)= 


$ 
-$ 


> 
a 


FUNCTIONAL DESCRIPTION: 


This routine is the error handler for COBOL error conditions. 
It gets invoked as a result of a call to LIBSSIGNAL. 


CALLING SEQUENCE: 
COBSSHANDLER (signal.rr.r, mechanism.rr.r) 
FORMAL PARAMETERS: 


SIGNAL.rr.r Address of vector of longwords indicating 
nature of condition. 


MECHANISM.rr.r Address of vector of longwords indicating 
the state of the process. 


IMPLICIT INPUTS: 


SRLEASRALLSSSLESREVLSESELSARFATAS Saves ~ 


DOOCOOCOSOGCO COCO OSOOSOCOSOSOSOSSSSSSOOSOSOSCOBOOCSCOOCOOCOCOCOOOOCOOOOOoOo Oo 
Se hae Sees Dy Bi te tipi t tented tet De DD Db fe bf bb te te en et St St Se ee i i i 

PUPP B® BS BS ES BE EEE AAAI AI RNIN NININININ 2 2 SO OO OO 
NOUN EWN 9 COONAN WIN OOD NAW EWN $0 OONOAUE WN HC ODNOULS WO 0M 
ee eee ee ee eee 


ee ee ee ee ee ee ee ee 
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NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
44 NONE 
4} COMPLETION CODES: 
i none 
1? SIDE EFFECTS: 
17 NONE 
15 NOTES: 
At The macro field references neque with "CHF® refer to 
38 ; condition handling argument List offsets. 
4 “+ 
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COBESHANDLER 16-Sep-1984 00:08:55 Ax-11 Bliss-32 V4.0-74 Page 
§S638 12-88-13 99:98 2 COBRTL.SRC ICOBHANDOLE .B 2;1 . (4). 
3 $ 738 BEGIN 
3 228 760 MAP 
\3 7 761 MECHANISM: REF Boeke -BvTE ‘ 
| 3 0 166 SIGNAL: REF BLOCKL,BYTEJ; 
3 1 76 LOCAL ; 
ls § 764 CONDITION; ! Condition that was signalled 
ls 765 LITERAL 
| 3 ree FALSE = 0, 
3 5 $53 ne TRUE = 1; 
: 0769 i Find out if it is a signal of interest. 
3 8 770 te 
: $28 0773 
: 341 O778 CONDITION = .SIGNALCCHFSL_SIG_NAME); ! Fetch condition value from signal array 
oie ae 
: 4g a ! Select appropriate action based on which one we have. 
: 26 077 : 
; 248 0780 SELECTONE .CONDITION OF 
3 $69 144 SET 
; 231 ores CCOBS_USE_EXIT): ! Special COBOL unwind signal 
: 258 0785 SUNWIND(); ! Just unwind 
; 385 0787 CSS$_ROPRAND: ! Was a SS$_ROPRAND 
 a26 0788 BEGIN 
: 58, 0790 LOCAL 
; 259 0791 USER_PC; ! Program counter where exception took place 
; 260 fad 
; 261 079 ‘+ 
3 262 0794 ! Using the signal argument vector, extract the 
; 26 0795 : proeres counter at the time the §S$_ROPRAND occurred. 
3 4 0796 ! The PC is the second-to-last argument in the signal vector. 
3; 265 0797 ! Note that ZBPVAL and ZUPVAL are pre-declared BLISS Literals 
3 66 8735 defining bits per BLISS value and units per BLISS value. 
: 268 0800 
; 9 O85; USER_PC = .SIGNALC (.SIGNALCCHFSL_SIG_ARGSJ-1)*ZUPVAL,0,2%BPVAL,0 J; 
; A 0808 ‘+ 
3; af 804 ' Check to see if a CVTTP or a CVTSP instruction 
i. 7 0805 ' was the generator of the signal. Note that the 
: 276 06 ! PC is pointing to the instruction that caused the fault. 
: 275 0 ! If the debugger had a preskporgt set on this instruction, 
; z 4 } this check will fail, but that’s okay. 
; 7 10 
3 5 11 4 IF ¢ of USER PC} <0 8 EQL CVTTP_OPCODE OR 
: 280 \ 4 -(.USER_PC)<0,8> EQL CVTSP_OPCODE ) 
Z 81 1 ; THEN 
; 282 0814 
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pa1964 12:10:06 ECOBRTL“SRESCOBWANDLE -B82; 1 
'¢ 


' Set the first Lenpyore of the signal argument 
' vector (the condition value field) to the condition 
} name we want the user to see, invalid decimal data. 


16-5 
14-$ 


rR FE = COBS_INVDECDAT; 


+ 

The following code handles the case of file specific 

and open-mode specific GLOBAL USE procedure conditions. 

Search through the entries for a match. If there is a match, 
then invoke the USE procedure and return SS$_CONTINUE; 
otherwise, re-signal the error (return SS$_RESIGNAL). 


CCOBS_LSTHNDUSEJ: 
BEGIN 
LOCAL 
FP: REF BLOCKC,BYTE), 
SFP: REF BLOCKL,BYTE); ! Saved FP 
REGISTER 
USE = 2: REF BLOCKC,BYTE), ! Pointer to USE List 
USEENT = 3: REF BLOCKC,BYTEI; ! Pointer to USE List entry 
FP = .MECHANISMCCHFSL_MCH_FRAME); ! Get FP of this program 
SFP = .FPCSFSL_SAVE_FPIJ; ! Get FP of program we want to look at 
IF BEGIN 
! This check is to ensure that the only way 
, you could get here is from a COBOL program. 
!' Note that we check for COBSHANDLER, rather than COBSSHANDLER; 
! COBSHANDLER is the symbol that COBOL programs reference - it 
! may be in a transfer vector or a fixup section; ie, the frame 
! may not hold a direct reference to CO SSHANDLER. 
! Also, get the USE List. 
Note that, if we get here, the USE List won't be zero. 
If .SFP EQL 0 THEN FALSE 
ELSE IF .SFPCSFSA_HANDLER] NEQA COBSHANDLER THEN FALSE 
ELSE IF (USE = .SFPCCOBSA_SF_USEJ) EQL 0 THEN FALSE 
ELSE TRUE 
END 
THEN 
BEGIN 
'¢ 


! Search for a USE procedure declared for the specific file 
! on which the exception occurred. Note that the . 

' COBSA_USE_FILES reference is the base of the Ist file 

' entry and COB$B_GUSE_COUNT is the count of global 

} file entries. 


USEENT = USECCOBSA_USE_FILES]; ! Point to first file entry 
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END; 


DECR 


ieseortage 00:08:83 UGbaRTL:SRESCOBHANDLE-B82;1 


I FROM .USECCOBSB_GUSE_COUNTJ-1 TO 0 r 
BEGIN Lee over files 
athe USE_PROC] EQLA “SIGNAL COBSA_F IL_PROCI 
BEGIN 
COBSSINVOKE_USE( ! Invoke USE 
-USEENTECCOBSA_USE_PROCI, ! Addr of USE procedure 
URE !' Ptr to USE List 
F srst SAVE_AP]J, ! Argument slonee 
“USEENT cOBSA cust Hae ! addr of EODPR block 
USELCOBSA_U ; ! Addr of Perform Nest Ctr 
RETURN SES EONTINKET” 


ND; 
yl = .USEENT + COBSS_USE_FILES; ! Step to next 


‘+ 
' Open Mode Only. 


‘ ay mode. Note that COBSA_USE_MODES én to 


base of the open mode entries. There are four 


' 
' 
! 
See if a procedure has been declared for t 
- 
i] 


i open modes, i.e. INPUT, OUTPUT, I-0, and EXTEND. 


A sep Coase. USE. MODES]; ! Point to first mode entry 
N ! Loop over modes 


8S 


' 
' The check here for EOPR not equal to zero is 

! to ensure that the program is a local one. If 

' EOPR equals zero, then the USE procedure is an 

‘ e- level reference; then the original condition 
! that was signalled, should be penetenat ee. 

' Else, if EOPR is not equal to zero and the USE 
procedure has been found, then call Cops INV USE. 


IF .USEENTCCOBSA_USE_ PROC] EQLA .SIGNALCCOBSA_OPN_PROC) 
AND .USEENTCCOBSA_USE_EOPR NEQ 0 


BEGIN 
COBSSINVOKE USE ( 


!' Invoke USE 
~USEENTCCOBSA_USE_PROC), ! Addr of USE procedure « 
a sf ! Ptr to U USE List 
“FP sF$t es SAVE_AP], i Argument 
-USEENT wo vee E AEOPRI, ! Addr of E PR block 
-USECCOBSA ! Addr of Perform Nest Ctr 


RETURN ss OFONT IN Ms 
USEENT = ,USEENT + COBSS_USE_MODES; ! Step to next 
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GLOBAL USE pr pcopure cond on, 


entries and check 
nal argument vector. 
error (return SS$_RESIGNAL). 


CCOBS_LSTHNDLDB): 
BEGIN 


LOCAL 
tod LOCK 
SFP LOCK 
REGISTER 
USE = 
USEENT = : Bs 
= JE CHANT SAE CHE St 


RE 
RE 

RE 
RE 


F 
F 
REF 
F BLOCKL, 
MC 
J; 


i 


The following code gee ne Mme case of a Data Base 


for a match for the entry a 
: arerees of the USE arenes peceer to this handler 


B 
B 
BLOCKE BY 
B 
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“$Soc198S 00:08: 


Search through the 


AX-11 Blis jegens v4.0 7h 
COBRTL.SRC COBHANDLE . B52;1 


4 Sar + CNT 


address yith ¢ 


int 


a match, then eeke” the 


BYTE 

‘BYTE 
TE], ! Ptr 
BYTEJ; ! Ptr 


FRAME); ! Get 


! Get 


Us procedure and return 538. * CONTINUES otherwise, re-signal the 


i ! Saved FP 


to Data Base USE List 
to Data Base USE List entry 


FP of this program 
FP of program we want to look at 


FP 
SFP = .FPCSFSL_SAVE_FP 
IF IN 


om 
or... 


This check is to ensure that the only way 
ree could get here is from a COBOL program. 
lso, get the DB USE List. 


Check if this is a DB USE List 

The COB$B_USE _CODE field shout contain 

the os code for the class of data base 

except jens (equal to COBSK_DBUSE_CODE). 

This allows new kinds of USE procedures to be added, 
without requiring more longwords on the COBOL stack frame. 


SFP EQL 0 THEN FALSE 

IF .SFP SFSA HANDLER aces wee es THEN FALSE 

I E = PCC bB_US SEJ) EQL 0 THEN FALSE 

: USECCOBSB_ USE tone “NEO COBSK_DBUSE_CODE THEN FALSE 


mmm. 


F 
F 
F 
R 


CTR ETN ETAT ET ee 0 me ee me ee ee ee eee eee QD 


zeroes 
Suvuw 


THEN 


' Search for a USE procedure for the “OOBEA DB Use 
! Data Base exception. Note that the COBSA 

! reference is the address of the data base Meetiee while 
' COBSB_DBUSE_CNT is the gouns of globa’ Data Base 

USE oes Non defined in the local er» gram. 


= USECCOBSA DBUSE_ENT); ! Point to Ist data base entry 
FROM -USECCOBSB “GOBUSE- “CnT) - 00 00 


-USEENTCCOBSA_USE_PROC) EQLA ee 


2 
ragga NERSEHM MRSRESEE BGA TNHBAlateTen 


BEGIN 


Resignal the error, ate bang Mag Be = geletss 
e an . 


Note that, although we don't need to increase the size 
of the SIGNAL vector, we can't use it for the new signal, 
since we musn't just mung the PC and PSL in this vector. 


error message, and removing 


500 


We assume that ARG_K_SIZE longwords suffice. If not, 
the displayed message will look tacky, that's all. 


LITERAL ARG_K_SIZE = 12; ! Should be Large enough 
LOCAL ARGS: VECTORCARG_K_SIZE); 
BUILTIN CALLG; 


SESE : 2 


SERRE SSS NOOR UN COMNAMR WSO 


OOoooc0coe 


Uw 


(. SIGNALCCHFSL_SIG_ARGSJ, ARG_K_SIZE-1); 
= COBS$_ERRDURSOR; 


3; 454 6 BEGIN 

; re 9 6 COBSSINVOKE_USE ( ! Invoke the USE procedure 
3; «4 § 988 6 -USEENTCCOBSA_USE_PROC], ' Addr of DB USE procedure 
3 4 989 6 USF ! Ptr to DB USE List 
; 458 0 5 .FP SFSt SAVE_AP, i Argument pointer 

3; 459 0991 6 “USS aT COBSA-USE_EOPRI, ! Addr of EDPR block 
: 460 1444 6 -USECCOBSA_DBOSE_PNCJ); ! addr of Perform Nest Ctr 
H ¢e3 Beez 1 Sg SS$_CONTINUE; 

> 46 0995 USEENT = .USEENT + COBSS_DBUSE; ! Step to next entry 
> 464 pone 4 END; 

; 465 $39 END; 

; 996 END; 

; 467 0999 

3 1000 '¢ 

: 469 001 ! Check for other errors that are handled special'y. 

: rea 1 : Currently, these only include errors from Sort/Merge. 

3; 47 004 

: 47 005 COTHERWISE): ! No match occurred 

3; 4746 B06 BEGIN 

: 475 00 

3 $76 43 CONDITION: BLOCKC BYTE); ! Condition that was signalled 
3; 478 01 '¢ 

; Be 4 : Is it a SORT/MERGE error signal? 

; 481 01 IF .CONDITIONCSTS$V_FAC_NO] EQL SORTS_FACILITY 

; 48 01 THEN 

: 48 01 4 BEGIN 

: rtf ot : IF .CONDITIONCSTSS$V_SEVERITY] LSS STSSK_SEVERE 

; 486 01 5 BEGIN 

: 487 019 5 ! 

; 488 020 5 ! These errors are continuable. 

3; 489 05 5 ! 

; 490 0 5 RETURN SS$_CONTINUE ! Ignore the error 

3 023 5 END 

; 49 024 4 ELSE 

3; 49 02 2 

3 02 

$ 027 5 

: ae 

3 3 

3 0 

: 03 


S 
— 
ee ee ee cc a eed od od oe - — 


LSSSSSSSSS 
SSRs SRaNS 
RR 

m—O0@ 


=138¢ 99:9 755 AX-11 Bliss-32 V4.0-74 
1984 12:10:46 COBRTL.SRC JCOBHANDLE .B52; 1 


: 1} 196? ARGS[2] = 0; 

: ig 1045 CHSMOVE(.ARGSCO] * ZUPVAL ! Everything ... 

; 514 re = 2*ZUPVAL ! Less bytes for PC and PSL 
: 5 104 SIGNALECHFSL_SIG_NAMEJ, 

; " 1948 CALLG( ARGSCOI, LIBSSTOP ); 

; 19 1051 RETURN SS$_CONTINUE ! Ignore the original error 
; ; 1 1088 4 “ae END; 

; : 1988 END; 

; 4 1928 

: 5 105 TES; 

oe he 

; 528 1060 i Resignal the error if the signalled condition was not one 

; 529 1061 ! of the expected conditions to be handled. Also resignal the 

; $30 1066 ! error if a USE procedure wasn't found or if the error had been 

s Sa 106 ! a SS$_ROPRAND since the signal mame has been changed. 

: 338 1065 2 

: 534 1066 RETURN SS$_RESIGNAL 

3 339 1067 1 END; 


TITLE COBSSHANDLER 
IDENT \1-022\ 

-EXTRN LIBSSTOP, LIGSSIGNAL 

-EXTRN COBSSINVOKE_US 

EXTRN COBSHANDLER; COB$_ERRDURSOR 
-EXTRN COBS$_NO_USEPRO, COBS$_LSTHNDUSE 
EXTRN COBS-LSTHNDLDB. COBS~USE EXIT 


. US x 
-EXTRN COBS_INVDECDAT, SYSSONWIAD 
-PSECT _COBSCODE,NOWRT, SHR, PIC,2 


00FC 00000 -ENTRY COBSSHANDLER, Save R2,R3,R4,R5,R6,R7 
57 000000006 90 i 00002 ROVAB COBSHANDLER. R? 
Se C2 00009 SUBL2 #48, SP 
54 04 AC DO 0000C MOVL SIGNAL, R4 
32 06 As DO 9010 MOVL  4(R4), CONDITION 
000000006 &F 52 D1 00014 CMPL CONDITION, #COBS$_USE_EXIT 
B 12 90018 BNEQ ~=s«TS$ 
; 7C 0001D CLRQ = = (SP) 
000000006 00 02 FB 0001F CALLS #2, SYSSUNWIND 
7C 11 000 6 BRB 
00000454  8F 32 D] 90 : CONDITION, #1108 
50 64 06 80 1 (R4), RO 
50 FC asa b0 00 ~4(R4) CROJ, USER_PC 
26 6 4 2 9 (USER_PC), #38 
09 $6 91 0003€ (USER_PC), #9 
61 12 00041 9$ 


COBSSHANDLER 
1-622 


dD 2 

6-Sep-1984 00:08:55 AX-11 Bliss-32 V4.0-74 

o=8ep- lobe 13:98:20 tCOeRTL. sre COBHANDLE .832; 1 
& 


1 
1 
04 A& 000000006 &8F 00 0 43 28 MOVL COBS_INVDECDAT, 4(R4) 
, 4 48 BRB 9 
000000006 8F : D} 0040 3$: cHPL CONDITION, #COBS_LSTHNDUSE 
50 08 AC 8 60 6 MOVL § MECHANISM, RO 
5 4 AO DO 0005A MOVL  4(RO), FP 
50 0c AS 00 000 : MOVL 12(FPS, SFP 
65 13 0006 BEQL 118 
51 67 4: 0064 MOVAB COBSHANDLER, R1 
51 60 D1 00067 CMPL (SEP), R1 
62 12 0006A BNEG 12 
52 FC Ad D 906 MOVL <4(SFP), USE 
57 13 00 BEQL 11$ 
53 28 Ag 9E 0007 MOVAB 40(R2) USEENT 
56 25 Ad 9A 00076 MOVZBL 37(USES, I 
09 11 O007A BRB 5$ 
Oc AG 63 01 0007C 4$ CMPL (USEENT), 12(R4) 
18 13 00080 BEQL «= 7$ 
53 oc cd 00082 ADDL2 #12, USEENT 
F4 56 F4 00085 5$ SOBGEQ I, 4$ 
53 04 A2 9 00088 MOVAB 4(R2), USEENT 
56 03 DO 0008C MOVL #3, I 
10 AG 63 Di OOO8F 6$: CMPL  (USEENT), 16(R4) 
09 12 00093 BNEQ = 8$ 
04 As 03 00095 TSTL  4(USEENT) 
04 13 00098 BEQL «=s BS 
62 DD O009A 7S: PUSHL (USE) 
45 11 0009C BRB 14$ 
53 08 CO O009E 8s ADDL2 #8, USEENT 
EB 56 F4 OOOA SOBGEQ 1, 6$ 
56 11 OOOA4 9S: BRB 17$ 
000000006 8F 52 D1 000A6 10$:  CMPL = CONDITION, #COB$_LSTHNDLDB 
4F 12 OOOAD BNEQ 18$ 
50 08 AC DO OOOAF MOVL § MECHANISM, RO 
55 04 AO DO 000B3 MOVL 4(RO), FP 
50 0c AS 00 00087 MOVL 12cFPS, SFP 
3f 13 0008B BEQL 178 
51 67 9€ 000BD MOVAB COBSHANDLER, R1 
51 60 D1 000C CMPL (SFP), R1 
7A 12 000¢ BNEQ 218 
52 F8 AO 09 000¢ MOVL <-8(SFP), USE 
74 13 000C9 11$ BEQL 21$ 
01 62 91 000CB MPB (USE), #1 
6F 12 doce 12$ BNEQ ais 
53 0c A2 9E 000D MOVAB 12(R2), USEENT 
56 09 A2 9A 000D4 MOVZBL 9 (USE). I 
1F 11 00008 BRB 16$ 
OC Ab 63 D1 OOODA 138: CMPL (USEENT) , 12(R4) 
16 12 000D BNEQ  15$ 
04 A2 DOD 000E PUSHL 4(USE) 
04 AS DD 9 £3 14% PUSHL 4(USEENT) 
08 a5 DD O00E PUSHL 8(FP) 
52 OD 9 E PUSHL USE 
63 DD 000EB PUSHL (USEENT) 
000000006 00 0 FB 9 ED CALLS #5, COBSSINVOKE_USE 
45 1 F4 BRB 20$ 
53 OC CO 000F6 15 ADDL2 #12, USEENT 


—— + FE 


Se Se Se Se Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Be Ge Be Be Se Se Ge Se Se Se Se Se Se Se Se Be Fe Se Se Ge Se Se Se Be Fe Ge Be Se Ge Se Se He Se Se Se Se Se 


COBSSHANDLER 
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Routine Size: 


_COBSCODE 


File 
_$255$DUA28: 


2 
16-Sep-1984 00:08:55 AX-11 Bliss-32 V4.0-74 
12-8 08=198e 90:08 28 COBRTL.SRCICOBHANDLE .B 2:1 
DE 56 F4 000F9 1g8: SOBGEQ j 13$ 
41°11 fC 17$: BRB {$ 
52 oc 10 FD FE 18$:  CMPZV #16, #12, CONDITION, #28 
3A 12 001 BNEQ 21$ 
52 03 90 ED 1 CMPZV 40 #3, CONDITION, #4 
F 10A BLSS 208 
50 64 DO 0010C¢ MOVL  (R4), RO 
0B 9 D1 0010F CMPL Rg #1 
03 1 ite BLEGU 198 
50 08 DO 00114 MOVL #11, RO 
6E 0 DO 00117 19$:  MOVL RO, ARGS 
04 AE 000000006 BF »D O01 1A MOVL §§ #COBS$_ERRDURSCR, ARGS+4 
08 AE D4 001 é CLRL  ARGS+8 
50 6E DO 01 MOVL. ARGS, RO 
50 04 C4 00128 MULL2 #4, RO 
50 08 ce 001 B SUBL2 #8. RO 
OC AE 04 Ab 50 28 0012£ MOVC3 RO. 4(R4), ARGS+12 
000000006 00 6— FA 001 CALLG ARGS, LIBS$STOP 
50 01 pO 00138 20$: MOVL #1, RO 
04 0013 RET 
50 0918 8F 3C 0013F 21$:  MOVZWL #2328, RO 
04 00144 RET 
325 bytes, Routine Base: _COBSCODE + 0000 
1068 1 
1069 1 END 
1070 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


325 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ecocoese Symbols ecoeoe-= Pages Processing 
Total Loaded Percent Mapped ime 
CSYSLIBISTARLET.L32;1 9776 14 0 581 00:00.7 


a tr a ee 
FRUARR FREE 


Quint 


NOW Oo 


F 2 
= game 1e8eb-18ee $3:98:26 — Febarte SReScosMANDLe -682;1 se 
COMMAND QUALIFIERS ; 


FESS CHE SRO CELD SME TEM OPT ERESE ) PHOTRALE SL B98. 150s CORMANDLE 10D. 908 18s CORHMIDLE MSRC$: COBHANDLE/UPDATE=(ENHS$: COBHANDLE 


Size: 325 code + 0 data bytes 
; Run Time: 00:08. 
; Elapsed Time: 00:36.4 


; Lexemes/CPU-Min: 2889 
; ry Used: 155 pages 
; Compilation Complete 
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